525
FilterBarCaption AVAILABLE Keyword ( sample 2, result ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
	"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
	"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
	" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
524
FilterBarCaption AVAILABLE Keyword ( sample 1 ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
527
FilterBarCaption ALLUI Keyword ( sample 2, result ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
526
FilterBarCaption ALLUI Keyword ( sample 1 ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
529
FilterBarCaption ALL Keyword ( sample 2, result ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
	"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
	"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
	" + ` item(s)`) )))"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
528
FilterBarCaption ALL Keyword ( sample 1 ) 

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub AxComboBox1_InsertItem(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent) Handles AxComboBox1.InsertItem
	Dim i
	With AxComboBox1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowExclude Or EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
534
Export Data in HTML format

Dim h,sFile
With AxComboBox1
	.BeginUpdate()
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXCOMBOBOXLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellForeColor) = 8421504
			.Def(EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor) = .Def(EXCOMBOBOXLib.DefColumnEnum.exCellForeColor)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine) = False
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat) = 1
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,Nothing,"Child A")
		.InsertItem(h,Nothing,"Child B")
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,Nothing,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.CellBackColor(.InsertItem(h,Nothing,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
	sFile = "c:/temp/export.html"
	.Export(sFile,"vis")
	With CreateObject("InternetExplorer.Application")
		.Navigate2(sFile)
	End With
End With
533
Export Data in CSV format

Dim h
With AxComboBox1
	.BeginUpdate()
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXCOMBOBOXLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellForeColor) = 8421504
			.Def(EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor) = .Def(EXCOMBOBOXLib.DefColumnEnum.exCellForeColor)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine) = False
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat) = 1
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,Nothing,"Child A")
		.InsertItem(h,Nothing,"Child B")
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,Nothing,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.CellBackColor(.InsertItem(h,Nothing,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
	Debug.Print( .Export("","vis") )
End With
590
Expandable-caption

Dim h
With AxComboBox1
	.BeginUpdate()
	.Style = EXCOMBOBOXLib.StyleEnum.Simple
	.TreeColumnIndex = -1
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add("Default")
	.Columns.Add("Select").Visible = False
	With .Items
		.CellCaption(.AddItem("before item"),1) = "before"
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CellCaptionFormat(h,0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
		.CellSingleLine(h,0) = EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap
		.CellCaption(h,1) = "Bank Account"
		.CellCaption(.AddItem("after item"),1) = "after"
	End With
	.set_Select(1,"after")
	.EndUpdate()
End With
591
Expandable-caption

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxComboBox1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_AnchorClickEvent) Handles AxComboBox1.AnchorClick
	With AxComboBox1
		Debug.Print( e.anchorID )
	End With
End Sub

Dim h
With AxComboBox1
	.BeginUpdate()
	.Style = EXCOMBOBOXLib.StyleEnum.Simple
	.TreeColumnIndex = -1
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add("Default")
	.Columns.Add("Select").Visible = False
	With .Items
		.CellCaption(.AddItem("before item"),1) = "before"
		h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
	"650;</a><br>+ withdraw(amount: Currency)")
		.CellCaptionFormat(h,0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
		.CellSingleLine(h,0) = EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap
		.CellCaption(h,1) = "Bank Account"
		.CellCaption(.AddItem("after item"),1) = "after"
	End With
	.set_Select(1,"after")
	.EndUpdate()
End With
468
Does your control supports scrolling by touching the screen

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.ScrollBySingleLine = True
	.AutoDrag = EXCOMBOBOXLib.AutoDragEnum.exAutoDragScrollOnShortTouch Or EXCOMBOBOXLib.AutoDragEnum.exAutoDragScroll
	.EndUpdate()
End With
405
Does your control support RightToLeft property for RTL languages or right to left

Dim h
With AxComboBox1
	.BeginUpdate()
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	.RightToLeft = True
	.EndUpdate()
End With
357
Does your control support prompt feature

With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.AutoComplete = False
	.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
	.Items.AddItem(0)
	.Items.AddItem(1)
	.Items.AddItem(2)
End With
22
Does your control support partial-check ( three states ) feature for each column

Dim h
With AxComboBox1
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
565
Does your control support multiple-selection

With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	With .Columns
		.Add("Column")
		.Add("Sub-Column")
	End With
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1.1"
		.CellCaption(.AddItem("Item 2"),1) = "SubItem 2.1"
		.CellCaption(.AddItem("Item 3"),1) = "SubItem 3.1"
		.CellCaption(.AddItem("Item 4"),1) = "SubItem 4.1"
		.SelectItem(.ItemByIndex(1)) = True
		.SelectItem(.ItemByIndex(3)) = True
	End With
	.EndUpdate()
End With
352
Does you control support RTL languages or if there is a property RightToLeft

With AxComboBox1
	.RightToLeft = True
	.ItemsAllowSizing = EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeItem
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exHLines
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = True
	.DefaultItemHeight = 64
	With .Columns.Add("Column")
		.Alignment = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
		.EditAlignment = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
	End With
	With .Items
		.AddItem("Item 1")
		.ItemHeight(.InsertItem(.AddItem("Parent"),Nothing,"Item 2")) = 48
		.AddItem("Item 3")
		.ExpandItem(.ItemByIndex(1)) = True
	End With
End With
319
Does the tooltip support HTML format

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
End With
453
Does the control have the option to have a horizontal scroll to show entries which are longer than the display

With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	.Columns.Add("Default").Width = 512
	With .Items
		.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 19" & _
	"99. ""eXontrol"" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single s" & _
	"ite where you can try or buy our products. If you are tired of looking for ""powerful"" components now it's time to show you rea" & _
	"l components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
		.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowin" & _
	"g the user either to type a value directly into the control or choose from the list of existing options.")
	End With
	.EndUpdate()
End With
121
Do you have some function to retrieve all items to a safe array

With AxComboBox1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.PutItems(.GetItems(0))
	.Items.AddItem(1)
	.PutItems(.GetItems(0))
	.Items.AddItem(2)
	.PutItems(.GetItems(0))
	.Items.AddItem(3)
End With
122
Do you have some function to load data from a safe array

With AxComboBox1
	.Columns.Add("Column")
	.Items.AddItem(0)
	.PutItems(.GetItems(0))
End With
548
Do do I get the DAO version I have installed
With AxComboBox1
	Debug.Print( CreateObject("DAO.DBEngine.35").Version.Version )
	Debug.Print( CreateObject("DAO.DBEngine.36").Version.Version )
	Debug.Print( CreateObject("DAO.DBEngine.120").Version.Version )
End With
546
Do do I get the ADO version I have installed
With AxComboBox1
	Debug.Print( "ADO Version:" )
	Debug.Print( CreateObject("ADODB.Connection").Version.Version )
End With
605
Displays the root item's index and value/caption using expressions

Dim h
With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.AutoDrag = EXCOMBOBOXLib.AutoDragEnum.exAutoDragPositionAny
	.SingleSel = False
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesSolid
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = &H2
	End With
	With .Columns.Add("Description")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Root-Index")
		.FormatColumn = "root(1 index ``)"
		.Position = 1
		.Width = 32
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	With .Columns.Add("Root-Value")
		.FormatColumn = "root(%0)"
		.Position = 2
		.Width = 32
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.CellState(.InsertItem(h,Nothing,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
604
Displays the parent item's index and caption/value using expressions

Dim h
With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.AutoDrag = EXCOMBOBOXLib.AutoDragEnum.exAutoDragPositionAny
	.SingleSel = False
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesSolid
	.ConditionalFormats.Add("%CC0 and %CX0").Bold = True
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ApplyTo = &H2
	End With
	With .Columns.Add("Description")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index `I`"
		.Position = 0
		.Width = 16
	End With
	With .Columns.Add("Parent-Index")
		.FormatColumn = "parent(1 index `I`)"
		.Position = 1
		.Width = 32
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	With .Columns.Add("Parent-Value")
		.FormatColumn = "parent(%0)"
		.Position = 2
		.Width = 32
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.CellState(.InsertItem(h,Nothing,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
601
Displays a glitch funnel for drop-down filter buttons (empty or active)

With AxComboBox1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = -1
		.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
	"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
	"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
		.Add(2,"CP:1 -2 0 0 0")
	End With
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.ShowFocusRect = False
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,33554432)
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,33554433)
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Columns.Add("1st col")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Item B"
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exFilter
	End With
	.Columns.Add("2nd col")
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
587
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxComboBox1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_MouseMoveEvent) Handles AxComboBox1.MouseMoveEvent
	With AxComboBox1
		.ShowToolTip(.get_ColumnFromPoint(-1,-1),"",Nothing,"+8","+8")
	End With
End Sub
592
Disable temporarily the column's sort, resize and drag and drop

With AxComboBox1
	.BeginUpdate()
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.HeaderEnabled = False
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit")
	.GridLineStyle = EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exVLines
	.EndUpdate()
End With
588
Disable hover-all feature (Windows 11 or greater)
With AxComboBox1
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll,1)
End With
602
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = " "
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With
603
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With
544
DAO, MDB, 120 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.120")
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
543
DAO, MDB 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.36")
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
545
DAO, ACCDB, 120 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With CreateObject("DAO.DBEngine.120")
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
582
Change the clear-button appearance

With AxComboBox1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:Window 19 1")
		.Add(2,"XP:Window 19 3")
	End With
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exClearButtonUp,16777216)
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exClearButtonDown,33554432)
	.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 1
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With
150
Can I use your EBN files to change the visual appearance for radio buttons

With AxComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_RadioImage(False,16777216)
	.set_RadioImage(True,33554432)
	.Columns.Add("Radio").Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton) = True
	With .Items
		.AddItem("Radio 1")
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem("Radio 3")
	End With
End With
149
Can I use your EBN files to change the visual appearance for checkbox cells

With AxComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Checked,33554432)
	.Columns.Add("Check").Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem("Check 1")
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
151
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

Dim h
With AxComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXCOMBOBOXLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
52
Can I use my own icons for the +/- ( expand/collapse ) buttons

Dim h
With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXCOMBOBOXLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,1)
	.set_HasButtonsCustom(True,2)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
428
Can I specify an item to be a separator

Dim h
With AxComboBox1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.SortOnClick = EXCOMBOBOXLib.SortOnClickEnum.exNoSort
	.Columns.Add("Numbers")
	With .Items
		.AddItem(1)
		.AddItem(2)
		h = .AddItem("separator")
		.SelectableItem(h) = False
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter
		.ItemDividerLine(h) = EXCOMBOBOXLib.DividerLineEnum.ThinLine
		.CellHAlignment(h,0) = EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
		.AddItem(3)
		.AddItem(4)
	End With
	.EndUpdate()
End With
430
Can I specify a terminal item so it will mark the end of childs

Dim h
With AxComboBox1
	.BeginUpdate()
	.ScrollBySingleLine = True
	.Columns.Add("P1")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .InsertItem(h,"","")
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 2
		.SelectableItem(h) = False
		.SortableItem(h) = False
	End With
	.EndUpdate()
End With
556
Can I sort the column by image

With AxComboBox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Image")
		.SortType = EXCOMBOBOXLib.SortTypeEnum.exSortByImage
	End With
	With .Items
		.CellImage(.AddItem(),0) = 3
		.AddItem()
		.CellImage(.AddItem(),0) = 1
		.CellImage(.AddItem(),0) = 2
	End With
	.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
557
Can I sort the column by check-state

With AxComboBox1
	.BeginUpdate()
	With .Columns.Add("Check")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.SortType = EXCOMBOBOXLib.SortTypeEnum.exSortByState
	End With
	With .Items
		.AddItem()
		.CellState(.AddItem(),0) = 1
		.CellState(.AddItem(),0) = 1
		.AddItem()
	End With
	.Columns.Item(0).SortOrder = EXCOMBOBOXLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
599
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Dim h
With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.Def(EXCOMBOBOXLib.DefColumnEnum.exFilterPatternTemplate) = "*<%filter%>*"
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exPattern
		.Filter = "1"
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With
311
Can I remove the line being displayed by a divider item

Dim h
With AxComboBox1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXCOMBOBOXLib.DividerLineEnum.EmptyLine
		.CellHAlignment(h,0) = EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
	End With
End With
34
Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window

With AxComboBox1
	.Columns.Add("Column").DisplayFilterButton = True
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAll,"")
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarBlanks,"")
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarNonBlanks,"")
End With
31
Can I make strikeout the column's header

With AxComboBox1
	.Columns.Add("Column 1").HeaderStrikeOut = True
End With
573
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
With AxComboBox1
	.Columns.Add("Max 2 chars").EditMaxLength = 2
	.AutoSearch = False
	.AutoComplete = False
End With
290
Can I let the user to resize at runtime the specified item

With AxComboBox1
	.ScrollBySingleLine = True
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.Columns.Add("Default")
	With .Items
		.ItemAllowSizing(.AddItem("resizable item")) = True
		.AddItem("not resizable item")
	End With
End With
54
Can I hide the hierarchy lines

Dim h
With AxComboBox1
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasLines = EXCOMBOBOXLib.HierarchyLineEnum.exNoLine
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
401
Can I have an image displayed after the text. Can I get that effect without using HTML content

Dim h
With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column").Def(EXCOMBOBOXLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,icon,check,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
	End With
End With
42
Can I filter for values using OR - NOT , instead AND operator

With AxComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	With .Columns.Add("Column 3")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	.FilterCriteria = "%0 or not %1 and %2"
	.ApplyFilter()
End With
8
Can I displays a custom size picture to column's header

With AxComboBox1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
End With
403
Can I display the cell's check box after the text

With AxComboBox1
	With .Columns.Add("Column")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check"
	End With
	With .Items
		.CellHasCheckBox(.AddItem("Caption 1"),0) = True
		.CellHasCheckBox(.AddItem("Caption 2"),0) = True
	End With
End With
371
Can I display the absolute value or positive part of the number

With AxComboBox1
	.Columns.Add("Number")
	.Columns.Add("Abs").ComputedField = "abs(%0)"
	With .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	End With
End With
19
Can I display multiple icons to the column's header

With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column 1").HTMLCaption = "1<img>1</img> 2 <img>2</img>..."
End With
161
Can I display an additional buttons in the scroll bar

With AxComboBox1
	.set_ScrollPartVisible(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exRightB5Part,True)
End With
209
Can I display a computed column so it displays the VAT, or SUM

With AxComboBox1
	.Columns.Add("A")
	.Columns.Add("B")
	.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 20
	End With
End With
285
Can I display a button with some picture or icon inside

Dim h
With AxComboBox1
	.set_HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>p1</img> "
		.CellCaptionFormat(h,1) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
		.CellHAlignment(h,1) = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
		.ItemHeight(h) = 48
	End With
End With
284
Can I display a button with some picture or icon inside

Dim h
With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>1</img> "
		.CellCaptionFormat(h,1) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
		.CellHAlignment(h,1) = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
	End With
End With
283
Can I display a button with some icon inside

Dim h
With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " <img>1</img> "
		.CellCaptionFormat(h,1) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
		.CellHAlignment(h,1) = EXCOMBOBOXLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
	End With
End With
10
Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar

With AxComboBox1
	.Columns.Add("Unsortable").AllowSort = False
	.Columns.Add("Sortable")
End With
567
Can I customize the count of selected items, shown on the right side of the control's label (multiple-selection)

With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.Style = EXCOMBOBOXLib.StyleEnum.DropDownList
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	.SelBackColor = RGB(51,153,255)
	.SelForeColor = RGB(255,255,255)
	.LabelText = "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
	With .Columns
		.Add("Column")
		.Add("Sub-Column")
	End With
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1.1"
		.CellCaption(.AddItem("Item 2"),1) = "SubItem 2.1"
		.CellCaption(.AddItem("Item 3"),1) = "SubItem 3.1"
		.CellCaption(.AddItem("Item 4"),1) = "SubItem 4.1"
		.SelectItem(.ItemByIndex(1)) = True
		.SelectItem(.ItemByIndex(3)) = True
	End With
	.EndUpdate()
End With
378
Can I convert the expression to date

With AxComboBox1
	.Columns.Add("Number")
	.Columns.Add("Date").ComputedField = "date(dbl(%0))"
	With .Items
		.AddItem("-1.98")
		.AddItem("30000.99")
		.AddItem("3561.23")
		.AddItem("1232.34")
	End With
End With
377
Can I convert the expression to a number, double or float

With AxComboBox1
	.Columns.Add("Number")
	.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
	With .Items
		.AddItem("-1.98")
		.AddItem("0.99")
		.AddItem("1.23")
		.AddItem("2.34")
	End With
End With
174
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With AxComboBox1
	.set_FormatAnchor(False,"<b><u><fgcolor=880000> </fgcolor></u></b>")
	.Columns.Add("Column")
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
	End With
	.Items.AddItem("next item")
End With
173
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With AxComboBox1
	.set_FormatAnchor(True,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
	.Columns.Add("Column")
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = EXCOMBOBOXLib.CaptionFormatEnum.exHTML
	End With
End With
53
Can I change the style or type for the hierarchy lines

Dim h
With AxComboBox1
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasLines = EXCOMBOBOXLib.HierarchyLineEnum.exThinLine
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
312
Can I change the style of the line being displayed by a divider item

Dim h
With AxComboBox1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXCOMBOBOXLib.DividerLineEnum.DoubleDotLine
		.CellHAlignment(h,0) = EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
		.ItemHeight(h) = 24
	End With
End With
402
Can I change the order of the parts in the cell, as checkbox after the text, and so on

Dim h
With AxComboBox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column").Def(EXCOMBOBOXLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
		.CellHasCheckBox(h,0) = True
	End With
End With
170
Can I change the order of the buttons in the scroll bar

With AxComboBox1
	.set_ScrollOrderParts(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,"t,l,r")
	.set_ScrollOrderParts(EXCOMBOBOXLib.ScrollBarEnum.exVScroll,"t,l,r")
End With
39
Can I change the OR string in the filter bar

With AxComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exNonBlanks
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarOr," | ")
	.ApplyFilter()
End With
41
Can I change the NOT string in the filter bar

With AxComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exNonBlanks
	End With
	.FilterCriteria = "not %0 or %1"
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarNot," ! ")
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsNonBlank," ! IsBlank")
	.ApplyFilter()
End With
20
Can I change the height of the header bar

With AxComboBox1
	.HeaderHeight = 32
End With
317
Can I change the foreground color for the tooltip

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
End With
318
Can I change the forecolor for the tooltip

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exToolTipForeColor,255)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
21
Can I change the font to display the column's header

With AxComboBox1
	.HeaderHeight = 34
	.Columns.Add("Column 1").HTMLCaption = "<font Tahoma;14>Column</font> 1"
End With
171
Can I change the font for the tooltip

With AxComboBox1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
172
Can I change the font for the tooltip

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
End With
321
Can I change the default border of the tooltip, using your EBN files

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
320
Can I change the background color for the tooltip

With AxComboBox1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exToolTipBackColor,255)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
362
Can I change the background color for items or cells that contains a specified string

Dim h
With AxComboBox1
	.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
	.Columns.Add("")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Chld 3")
		.ExpandItem(h) = True
	End With
End With
38
Can I change the AND string in the filter bar

With AxComboBox1
	With .Columns.Add("Column 1")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	With .Columns.Add("Column 2")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exNonBlanks
	End With
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd," & ")
	.ApplyFilter()
End With
46
Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates

With AxComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateTodayCaption,"Azi")
	.ApplyFilter()
End With
43
Can I change the "Date:" caption when the column's drop down filter window is shown

With AxComboBox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
	.set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDate,"Range")
	.ApplyFilter()
End With
536
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

With AxComboBox1
	.BeginUpdate()
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = EXCOMBOBOXLib.CellSingleLineEnum.exCaptionBreakWrap
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With
535
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

With AxComboBox1
	.BeginUpdate()
	.DrawGridLines = EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine) = 1
	End With
	With .Items
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With
105
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

With AxComboBox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GetOcx().FilterBarBackColor = &H1000000
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXCOMBOBOXLib.FilterTypeEnum.exBlanks
	End With
	.ApplyFilter()
End With
431
Can I allow sorting only the child items

Dim h
With AxComboBox1
	.BeginUpdate()
	.Columns.Add("Childs")
	With .Items
		h = .AddItem("Root 1")
		.SortableItem(h) = False
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.SortableItem(h) = False
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
291
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later

With AxComboBox1
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	With .Items
		.ItemHasChildren(.AddItem("parent item with no child items")) = True
		.AddItem("next item")
	End With
End With
187
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header

With AxComboBox1
	.Columns.Add("Sort").DefaultSortOrder = True
End With
75
By default, the column gets sorted as strings, so how do I sort a column by time only

With AxComboBox1
	.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortTime
	With .Items
		.AddItem("11:00")
		.AddItem("10:10")
		.AddItem("12:12")
		.SortChildren(0,0,False)
	End With
End With
73
By default, the column gets sorted as strings, so how do I sort a column by dates

With AxComboBox1
	.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortDate
	With .Items
		.AddItem("1/1/2001")
		.AddItem("1/2/2002")
		.AddItem("1/3/2003")
		.SortChildren(0,0,False)
	End With
End With
74
By default, the column gets sorted as strings, so how do I sort a column by date and time

With AxComboBox1
	.Columns.Add("desc").SortType = EXCOMBOBOXLib.SortTypeEnum.SortDateTime
	With .Items
		.AddItem("1/1/2001 11:00")
		.AddItem("1/1/2001 10:10")
		.AddItem("1/3/2003")
		.SortChildren(0,0,False)
	End With
End With
606
Bolds only the expanded items

Dim h
With AxComboBox1
	.BeginUpdate()
	.HeaderAppearance = EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.ConditionalFormats.Add("%CX0").Bold = True
	.Columns.Add("Description")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 2"),Nothing,"Sub-Child 2")
		.CellState(.InsertItem(h,Nothing,"Child 3"),0) = 1
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
	End With
	.EndUpdate()
End With
593
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxComboBox1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXCOMBOBOXLib._IComboBoxEvents_MouseMoveEvent) Handles AxComboBox1.MouseMoveEvent
	With AxComboBox1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

With AxComboBox1
	.ToolTipMargin = "16,8"
End With
539
ADOR, MDB 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
541
ADOR, ACCDB 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
540
ADODB, MDB 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADODB.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
542
ADODB, ACCDB, x64 

Dim rs
With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = CreateObject("ADODB.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
531
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

With AxComboBox1
	.BeginUpdate()
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
	With .Columns.Add("Default")
		.Def(EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With